home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / os2 / ftree11a.zip / ABC-LIST.FTX next >
Text File  |  1996-10-30  |  3KB  |  99 lines
  1. /*
  2.    Family Tree Rexx Script FTX
  3.  
  4.    Copyright (C) 1996 by <Nils Meier>
  5.  
  6.    Please send comments to / Kommentar bitte an
  7.         meier2@athene.informatik.uni-bonn.de
  8.  
  9.    <
  10.    English:    This script displays an ordered list of all persons in the family tree.        :English
  11.    Deutsch:    Dieses Skript zeigt eine alphabetische Liste aller Menschen im Stammbaum.      :Deutsch
  12.    Nederlands: Dit script produceert een alfabetische lijst van alle personen in de stamboom. :Nederlands
  13.    Francais:   Ce script affiche une liste alphabétique de toutes les personnes de
  14.                l'arbre généalogique.                                                          :Francais
  15.    >
  16.  
  17.    Long name is <
  18.                  English:    Alphabetic List     :English
  19.                  Deutsch:    Alphabetische Liste :Deutsch
  20.                  Nederlands: Alfabetische lijst  :Nederlands
  21.                  Francais:   Liste alphabétique  :Francais
  22.                 >
  23. */
  24.  
  25. /* ----------------------- Params  /  Parameter ------------------- */
  26.  
  27. namewidth=30
  28. datewidth=12
  29.  
  30. CALL initLanguage
  31.  
  32. /* ----------------- Display Header / Kopf der Ausgabe ------------- */
  33.  
  34. head=msg.Header.LANG||DATE()
  35. SAY(head)
  36. SAY(COPIES('=',length(head)))
  37.  
  38. /* ------------------------------ Output / Ausgabe ----------------- */
  39.  
  40. /* Sort Persons by Name,FirstName / Menschen nach Name,Vorname sortieren */
  41. CALL sortPersons('N,F,B')
  42.  
  43. /* Display persons in tree / Zeige die Menschen an */
  44. rc=selectPerson('F')
  45. DO UNTIL RC=0
  46.  
  47.    /* Calc Name,FirstName / Berechne Name,Vorname */
  48.    result=getName()
  49.    firstname=getFirstName()
  50.    IF LENGTH(firstname)>0 THEN result=result||','||firstname
  51.    result=LEFT(result,namewidth)
  52.  
  53.    /* Calc Dates / Berechne Daten */
  54.    birth=getBirthDate()
  55.    result=result||' *'||LEFT(birth,datewidth)||' '
  56.  
  57.    death=getDeathDate()
  58.    result=result||'+'||LEFT(death,datewidth)
  59.  
  60.    /* Output / Ausgabe */
  61.    SAY(result)
  62.  
  63.    /* Next one / Naechster */
  64.    rc=selectPerson('N')
  65. END
  66.  
  67. /* Done / Fertig */
  68.  
  69. RETURN
  70.  
  71.  
  72. /* ---------------------- LANGUAGE INIT --------------------------- */
  73. InitLanguage:
  74.  
  75.    /* Calculate Language Index */
  76.    lang='E'                              /* Default -> [E]nglish */
  77.    IF getLanguage()='Deutsch' THEN       /* Deutsch -> [G]erman */
  78.       lang='G'
  79.    IF getLanguage()='Nederlands' THEN    /* Nederlands -> [D]utch */
  80.       lang='D'
  81.    IF getLanguage()='Francais' THEN      /* Francais -> [F]rench */
  82.       lang='F'
  83.  
  84.    /* [E]nglish Messages */
  85.    msg.Header.E='Alphabetical List - Today is :'
  86.  
  87.    /* [G]erman Messages */
  88.    msg.Header.G='Alphabetische Liste. Heute ist der '
  89.  
  90.    /* [D]utch Messages */
  91.    msg.Header.D='Alfabetische lijst - Heut is de :'
  92.  
  93.    /* [F]rench Messages */
  94.    msg.Header.F="Liste Alphabétique - Nous sommes le "
  95.  
  96.    /* Done */
  97.    RETURN
  98.  
  99.